home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / Other Langs / Tickle-4.0 (tcl) / test / tclMac.test next >
Encoding:
Text File  |  1993-11-03  |  290 b   |  13 lines  |  [TEXT/MPS ]
  1. ###
  2. ### Tickle specific Macintosh Test Suite
  3. ###
  4.  
  5. if {[string compare test [info procs test]] == 1} then {
  6.     source "$env(APPDIR):tcl:tests:defs"
  7.     }
  8.  
  9. test getfinfo-1.1 {getfinfo} {
  10.     set finfo [getfinfo $env(APPDIR):$env(APPNAME)]
  11.     concat [lindex $finfo 0] [lindex $finfo 1]
  12. } {$Tcl APPL}
  13.